10 POKE53280,11:GOSUB50
15 B$=CHR$(PEEK(I)):IFB$="[136]"THENPRINTA$;"[144]";:END
20 PRINTA$B$C$;:I=I+1:FORJ=1TO52:NEXT:GOTO15
25 POKE53280,12:POKE45,160:POKE46,9:CLR:GOSUB50:DIMA(2000)
30 GETB$:IFB$=""THEN30
35 PRINTA$B$C$;:POKEI,ASC(B$):I=I+1
40 IFB$="[136]"THEN55
45 GOTO30
50 POKE53281,11:A$="[157][160][157]":C$="*":PRINT"[147][159]"C$;:I=2560:RETURN
55 POKE252,(I/256):POKE251,(I-(PEEK(252)*256))
60 POKE46,PEEK(252):POKE45,PEEK(251):RUN
65 REM CURSOR COMMOTION BY MARK JOERGER. RUN 25 TO INPUT TEXT, PRESS F7 TO END.